home *** CD-ROM | disk | FTP | other *** search
/ Aminet 47 / Aminet 47 (2002)(GTI - Schatztruhe)[Feb 2002].iso / Aminet / misc / math / acalc.lha / Install < prev    next >
Text File  |  2001-11-24  |  6KB  |  185 lines
  1. ; $VER: ACalc Installer 1.0 (24.11.01) by Denis GOUNELLE
  2. ;
  3. ;-- Language specific string definitions --------------------------------------
  4.  
  5. ; ENGLISH -----------------------------
  6. (procedure english (
  7.     (set DOC_FNAME    "ACalcEnglish.doc")
  8.     (set MSG_TODO     "Select what you want to install")
  9.     (set TODO_PGM     "ACalc program file")
  10.     (set TODO_DOC     "ACalc documentation")
  11.     (set TODO_EURO    "Set the EURO variable")
  12.     (set MSG_DIRACALC "Select in which drawer you want to install ACalc.")
  13.     (set MSG_CPACALC  "Copying ACalc program file and icon.")
  14.     (set MSG_DIRDOC   "Select in which drawer you want to install the documentation.")
  15.     (set MSG_CPDOC    "Copying ACalc documentation.")
  16.     (set MSG_COUNTRY  "Select your country in the list below" )
  17.     (set HLP_COUNTRY  "Select the name of your country in the list : the right conversion rate for\
  18.  Euros will be automatically computed. If you can't find your country in the\
  19.  list, select 'Other'.\n\n" )
  20.     (set MSG_CONFIRM1 "The conversion rate for Euro will be set to:\n\n" )
  21.     (set MSG_CONFIRM2 "\n\nDo you agree ?\n\n(if no, you will be able to change it)" )
  22.     (set HLP_CONFIRM  "Answer 'Yes' if you agree with the rate value, or 'No' if you don't.\n\n" )
  23.     (set MSG_ENTER    "Enter the conversion rate between Euro and your locale currency,\n \
  24.  using a '.' character for the decimal point.\n\n")
  25.     (set MSG_CREATEVAR "Creating the EURO environment variable")
  26.     (set MSG_BYEBYE    "Installation finished.")
  27.     (set MSG_BYE1      "\n\nThe program can be found in:\n")
  28.     (set MSG_BYE2      "\n\nThe documentation can be found in:\n")
  29.     (set MSG_BYE3      "\n\nThe EURO variable has been set to:\n")
  30. ))
  31.  
  32. ; FRANÇAIS ----------------------------
  33. (procedure français (
  34.     (set DOC_FNAME    "ACalc.doc")
  35.     (set MSG_TODO     "Choisissez ce que vous voulez installer")
  36.     (set TODO_PGM     "Le programme ACalc")
  37.     (set TODO_DOC     "La documentation de ACalc")
  38.     (set TODO_EURO    "Créer la variable EURO")
  39.     (set MSG_DIRACALC "Choisissez dans quel répertoire vous souhaitez installer ACalc.")
  40.     (set MSG_CPACALC  "Copie du programme ACalc et de son icône.")
  41.     (set MSG_DIRDOC   "Choisissez dans quel répertoire vous souhaitez installer la documentation.")
  42.     (set MSG_CPDOC    "Copie de la documentation de ACalc.")
  43.     (set MSG_COUNTRY  "Sélectionnez votre pays dans la liste ci-dessous" )
  44.     (set HLP_COUNTRY  "Sélectionnez le nom de votre pays dans la liste : le taux de conversion vers l'Euro\
  45.  sera automatiquement calculé. Si vous ne trouvez pas votre pays dans la liste,\
  46.  choisissez 'Other'.\n\n" )
  47.     (set MSG_CONFIRM1 "Le taux de conversion vers l'Euro va être fixé à :\n\n" )
  48.     (set MSG_CONFIRM2 "\n\nEtes-vous d'accord ?\n\n(si non, vous allez pouvoir le changer)" )
  49.     (set HLP_CONFIRM  "Répondez 'Oui' si vous acceptez la valeur proposée, ou 'Non' si cette valeur ne convient pas.\n\n" )
  50.     (set MSG_ENTER    "Saisissez le taux de conversion entre l'Euro et votre monnaie,\n\
  51.  en utilisant un '.' (point) pour séparer les chiffres après la virgule.\n\n" )
  52.     (set MSG_CREATEVAR "Création de la variable d'environnement 'EURO'")
  53.     (set MSG_BYEBYE    "Installation terminée.")
  54.     (set MSG_BYE1      "\n\nLe programme a été installé dans :\n")
  55.     (set MSG_BYE2      "\n\nLa documentation a été installée dans :\n")
  56.     (set MSG_BYE3      "\n\nLa variable EURO a été initialisée a :\n")
  57.  
  58. ))
  59. ;------------------------------------------------------------------------------
  60. (procedure saisie (
  61.    (set rate (askstring
  62.                 (prompt  MSG_ENTER)
  63.                 (help    MSG_ENTER @askstring-help)
  64.                 (default rate)
  65.              )
  66.    )
  67. ))
  68. ;------------------------------------------------------------------------------
  69. ;
  70. (if (= @language "français") (français) (english))
  71. (set byebye MSG_BYEBYE)
  72. ;
  73. ; ask what to do
  74. ;
  75. (set todo
  76.   (askoptions
  77.     (prompt  MSG_TODO)
  78.     (help @askoptions-help)
  79.     (choices TODO_PGM TODO_DOC TODO_EURO)
  80.   )
  81. )
  82. ;
  83. ; install ACalc
  84. ;
  85. (if (BITAND todo 1)
  86.  (
  87.   (set acalcdir
  88.     (askdir
  89.       (prompt MSG_DIRACALC)
  90.       (help @askdir-help)
  91.       (default "SYS:WBStartup")
  92.   ))
  93.   (copyfiles
  94.     (prompt  MSG_CPACALC)
  95.     (source  "ACalc")
  96.     (dest    acalcdir)
  97.     (infos)
  98.   )
  99.   (set byebye (cat byebye MSG_BYE1 acalcdir))
  100.  )
  101. )
  102. ;
  103. ; install the documentation
  104. ;
  105. (if (BITAND todo 2)
  106.  (
  107.   (set docdir
  108.     (askdir
  109.       (prompt MSG_DIRDOC)
  110.       (help @askdir-help)
  111.       (default acalcdir)
  112.     )
  113.   )
  114.   (copyfiles
  115.     (prompt  MSG_CPDOC)
  116.     (source  DOC_FNAME)
  117.     (dest    docdir)
  118.     (infos)
  119.   )
  120.   (set byebye (cat byebye MSG_BYE2 docdir))
  121.  )
  122. )
  123. ;
  124. ; create the EURO variable
  125. ;
  126. (if (BITAND todo 4)
  127.  (
  128. ;
  129. ; ask for the country name
  130. ;
  131.   (set country
  132.     (askchoice
  133.       (prompt  MSG_COUNTRY)
  134.       (help    HLP_COUNTRY @askchoice-help)
  135.       (choices "Austria" "Belgium" "Eire" "Finland" "France" "Germany" "Greece" "Holland" "Italy" "Luxembourg" "Portugal" "Spain" "Other")
  136.     )
  137.   )
  138. ;
  139. ; set the conversion rate
  140. ;
  141.   (set rate "")
  142.   (select country
  143.     (set rate "13.7603"  ) ; austria
  144.     (set rate "40.3399"  ) ; belgium
  145.     (set rate "0.787564" ) ; eire
  146.     (set rate "5.94573"  ) ; finland
  147.     (set rate "6.55957"  ) ; france
  148.     (set rate "1.95583"  ) ; germany
  149.     (set rate "340.750"  ) ; greece
  150.     (set rate "2.20371"  ) ; holland
  151.     (set rate "1936.27"  ) ; italy
  152.     (set rate "40.3399"  ) ; luxembourg
  153.     (set rate "200.482"  ) ; portugal
  154.     (set rate "166.386"  ) ; spain
  155.     (set rate (saisie)   ) ; other
  156.   )
  157. ;
  158. ; ask for confirmation
  159. ;
  160.   (while
  161.     (NOT (askbool
  162.            (prompt  MSG_CONFIRM1 rate MSG_CONFIRM2)
  163.            (help    HLP_CONFIRM @askbool-help)
  164.            (default 1)
  165.     ))
  166.     (saisie)
  167.   )
  168. ;
  169. ; create the EURO variable
  170. ;
  171.   (textfile
  172.     (prompt MSG_CREATEVAR )
  173.     (dest   "ENVARC:EURO" )
  174.     (append (cat rate "\n") )
  175.   )
  176.   (set byebye (cat byebye MSG_BYE3 rate))
  177.  )
  178. )
  179. ;
  180. ; exit
  181. ;
  182. (set @default-dest acalcdir)
  183. (exit byebye (quiet) )
  184. ;
  185.